#!/usr/bin/perl -w

@array = <>;
foreach (@array) {
if ( /(F|f)red/ ) {
   print "$_";
   }
}
